home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
FGL402D.ZIP
/
EXBAS.ARJ
/
TEMP
/
CC-01.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
422b
|
31 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DECLARE SUB Int1C(Flag)
CONST Esc = 27
DIM KeyCode AS STRING*1
DIM AuxCode AS STRING*1
DIM SHARED Status1, Status2
Int1C(1)
Status1 = 0
Status2 = 0
DO
PRINT
PRINT "Joystick 1 status:"; Status1
PRINT "Joystick 2 status:"; Status2
Status1 = 0
Status2 = 0
FGgetkey KeyCode, AuxCode
LOOP WHILE KeyCode <> CHR$(Esc)
Int1C(0)
END